use Flap qw/-m -s -w/;

sub{
    shift;
    my $max = shift;
    foreach(@_){
        $max = $_ if $_ > $max;
    }
    $max;
};
